home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr52 / tbar.zip / INCLUDE1.CH < prev   
Text File  |  1993-04-01  |  3KB  |  65 lines
  1. /*┌──────────────────────────────────────────────────────────────────────┐
  2.  ▌│ Program Name: INCLUDE1.CH        Language: Clipper 5.0               │
  3.  ▌│ Date Created: 07/03/92             Author: Kevin S Gallagher         │
  4.  ▌│ Time Created: 13:44:58                                               │
  5.  ▌└──────────────────────────────────────────────────────────────────────┘
  6.  ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀            */
  7. #include "box.ch"
  8. #include "inkey.ch"
  9. #include "setcurs.ch"
  10. #include "ftint86.ch"
  11. #include "Dbstruct.ch"
  12. #include "directry.ch"
  13.  
  14. #define  CURDRV   FT_DEFAULT()                   //── get drivename[d:]
  15. #define  BCOLOR   'W/B,W+/BR,N/N,N/N,N/W,+W/N,+W/N,+W/N,N/W,N/BG'
  16. #define  Panel( lHelp ) EVAL( { | cDefCol | cDefCol := SETCOLOR( 'w+/n' ),;
  17.          DISPBOX( 0, 0, MAXROW(), 79, '▓▓▓▓▓▓▓▓▓', 'b+/b' ),;
  18.          DEVPOS( MAXROW(), 0 ),;
  19.          IF( lHelp, DEVOUT( PADL( 'F1 - Help', 80 ),"W+/B*" ),;
  20.          QQOUT() ), SETCOLOR( cDefCol ) } );;
  21.          DEVPOS( 0, 0 );;
  22.          DEVOUT(replicate(" ",80),"BG/BG");;
  23.          DEVPOS( MAXROW(), 0 );;
  24.          DEVOUT( PADR( " " + CURDRV + ":\" + CURDIR( CURDRV ), 80 ), "W+/BG")
  25.  
  26. #define  Shad( nTR, nTC, nBR, nBC, lDoub, cClrs )  ;
  27.          DISPBOX( nTR+1, nTC+2, nBR+1, nBC+2, '░░░░░░░░░', 'w+/n' );;
  28.          DISPBOX( nTR, nTC, nBR, nBC, IF( lDoub, '╔═╗║╝═╚║ ',;
  29.          SPACE( 9 ) ), IF( EMPTY( cClrs ), NIL, cClrs ) )
  30.  
  31. #define  BoxShad(nTR,nTC,nBR,nBC,cClrs );
  32.          RESTSCREEN(nTR+1,nTC+2,nBR+1,nBC+2,;
  33.          TRANSFORM(SAVESCREEN(nTR+1,nTC+2,nBR+1,nBC+2),;
  34.          REPLICATE('X',(nBR-nTR+1) * (nBC-nTC+1))));;
  35.          DISPBOX(nTR-1,nTC-1,nBR,nBC,'╔═╗║╝═╚║ ',cClrs)
  36.             
  37. #define  SaveFullScreen() cFullScreen := SAVESCREEN( 0, 0, 24, 79 )
  38. #define  RestFullScreen() RESTSCREEN( 0, 0, 24, 79, cFullScreen )
  39.  
  40. #define  WaitKey( lCont );
  41.          INKEY( 5 ); DEVPOS( 24, 0 ); DEVOUT( 'Press any key to ');;
  42.          DEVOUT( IF( lCont, 'Continue . . .', 'Exit . . .') );;
  43.          INKEY( 60 )
  44.  
  45. #define  Range( xVar, xExpr1, xExpr2 );
  46.          ( xVar >= MIN( xExpr1, xExpr2 ) .AND.;
  47.          xVar <= MAX( xExpr1, xExpr2 ) )
  48.  
  49. #define  Beep()    Tone(300,3)
  50.  
  51. #define  PressAnyKey();
  52.          EVAL( { | cDefCol | cDefCol := SETCOLOR( 'w+/n' ),;
  53.          DEVPOS( MAXROW(), 52 ), DEVOUT( 'Press any key to continue...'),;
  54.          SETCOLOR( cDefCol ), INKEY( 0 ) } )
  55.  
  56.  
  57. #xcommand STABILIZE <x> => DISPBEGIN();;
  58.                            WHILE !(<x>:stabilize());;
  59.                            END;;
  60.                            DISPEND()
  61.  
  62. #command DEFAULT <p> TO <val> [,<pn> TO <valn>] ;
  63.                  =>  <p> = iif(<p>  = NIL, <val>,  <p>) ;
  64.                  [;<pn>  = iff(<pn> = NIL, <valn>, <pn>)]
  65.